home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Snippets / PNL Libraries / Assembly / JGNEResource.p < prev    next >
Encoding:
Text File  |  1997-04-08  |  683 b   |  39 lines  |  [TEXT/CWIE]
  1. unit JGNEResource;
  2.  
  3. interface
  4.  
  5.     uses
  6.         Types, MixedMode, MyCallProc;
  7.     
  8.     const
  9.         csJGNEinit = 1;
  10.         csJGNEfinish = 2;
  11.  
  12.     const
  13.         uppHandleJGNEProcInfo = uppPascal044ProcInfo;
  14.         { procedure HandleJGNE(var er:EventRecord; refcon:longInt); }
  15.         
  16.     type
  17.         BooleanPtr = ^Boolean;
  18.         JGNEParamBlock = record
  19.             case csCode : longInt of
  20.                 csJGNEinit:(
  21.                     HandleJGNE:UniversalProcPtr; 
  22.                     refcon:longInt;
  23.                     isopenaddr:BooleanPtr;
  24.                     neednulladdr:BooleanPtr;
  25.                 );
  26.                 csJGNEfinish:();
  27.         end;
  28.  
  29.     procedure CallJGNEResource(jgne:Handle;var pb:JGNEParamBlock);
  30.  
  31. implementation
  32.  
  33.     procedure CallJGNEResource(jgne:Handle;var pb:JGNEParamBlock);
  34.     begin
  35.         CallPascal04(@pb, jgne^);
  36.     end;
  37.  
  38. end.
  39.